0 REM CHECK & AWAIT (AUG 25/84)       :
1 :
2 REM 0 STATEMENTS, 2 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 12
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM F/CHECK(    CHECK    2834    018
8 REM F/AWAIT(    AWAIT    2838    019
9 :
10 REM U/GETTER (2888/020)
11 :
12 REM ================================
13 :
602 .ASC "CHECK[168]AWAIT[168]"
1602 .WORD CHECK-1,AWAIT-1
2834 CHECK SEC       
2836 .BYTE $24       
2838 AWAIT CLC       
2840 PHP             
2842 JSR $AEF4       
2844 JSR $B6A3       
2846 STA T3          
2848 PLP             
2850 ROR T4          
2852 AW1 JSR GETTER  
2854 BIT T4          
2856 BMI AW2         
2858 TAY             
2860 BEQ AW1         
2862 AW2 LDY #$FF    
2864 AW3 INY         
2866 CPY T3          
2868 BEQ AW4         
2870 CMP ($22),Y     
2872 BNE AW3
2874 BEQ AW5
2876 AW4 BIT T4      
2878 BPL AW1         
2880 LDY #$FF        
2882 AW5 INY         
2884 JMP $B3A2       
2886 ;
2888 GETTER JSR $A82C 
2890 JMP $E124        
2892 ;